home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / shazam.exe / GEDITOR.INT < prev    next >
Encoding:
Text File  |  1992-09-01  |  2.4 KB  |  52 lines
  1.    {*******************************************************************
  2.  
  3.    GEDITOR.INT
  4.  
  5.    *******************************************************************}
  6. CONST
  7.    SaveClipCtx               : word = hcNoContext ;       { ClipBoard }
  8.    ClipWindow                : PEditWindow = NIL ;        { ClipBoard }
  9.    Default_Word_Wrap         : boolean = TRUE ;        { "OpenEditor" }
  10.    Default_Line_Length       : integer = 70 ;          { "OpenEditor" }
  11.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  12.    EDITOR
  13.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  14. procedure SaveEdModified ;
  15. procedure SaveEdUntitled ;
  16. procedure CloseEdUntitled ;
  17. procedure FirstExtent        ( VAR R : TRect ) ;
  18. procedure FirstExtentEd      ( VAR R : TRect ) ;
  19. function WinNumExist         ( WinNum : integer ) : boolean ;
  20. function NextWinNum          : integer ;
  21. function  OpenEditor         ( FileName : FNameStr ;
  22.                                Visible : boolean ) : PEditWindow ;
  23. procedure CreateClipboard ;
  24. procedure DisposeClipboard ;
  25.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  26.    BUFFERS
  27.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  28. function HeapParagraphs      : word ;
  29. procedure ReserveForData     ( Paragraphs : word ) ;
  30. procedure ReserveForEditor   ( Paragraphs : word ) ;
  31.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  32.    EDITOR
  33.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  34. function IsEdit              ( P : PView ) : boolean ;
  35. function IsEditEmpty         ( P : PView ) : boolean ;
  36. function IsTextSelected      ( P : PView ) : boolean ;
  37. function GetNameEdit         ( P : PView ) : string ;
  38. function IsUntitled          ( P : PView ) : boolean ;
  39. function IsClipboard         ( P : PView ) : boolean ;
  40. function FirstEd             : pointer ;
  41. function ExistEditor         : boolean ;
  42. function ExistEdName         ( S : string ) : pointer ;
  43.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  44.    CURRENT
  45.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  46. function EdIsCurrent         : boolean ;
  47. function NameCurrent         : string ;
  48. function UntitledIsCurrent   : boolean ;
  49. function ClipIsCurrent       : boolean ;
  50. function DialogIsCurrent     : boolean ;
  51. function HelpIsCurrent       : boolean ;
  52.